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INTRODUCTION 

The Intel® MCS-48 family of microcomputers marked 
the first time an eight bit computer with program 
storage, data storage, and I/O facilities was available on 
a single LSI chip. The performance of the initial 
processors in the family (the 8748 and the 8048) has 
been shown to meet or exceed the requirements of most 
current applications of microcomputers. A new member 
of the family, however, has been recently introduced 
which promises to allow the use of the single chip 
microcomputer in many application areas which have 
previously required a multichip solution. The In- 
tel® 8049 virtually doubles processing power available 
to the systems designer. Program storage has been in- 
creased from 1K bytes to 2K bytes, data storage has 
been increased from 64 bytes to 128 bytes, and process- 
ing speed has been increased by over 80%. (The 2.5 
microsecond instruction cycle of the first members of 
the family has been reduced to 1.36 microseconds.) 

It is obvious that this increase in performance is going 
to result in far more ambitious programs being written 
for execution in a single chip microcomputer. This ar- 
ticle will show how several program modules can be 
designed using the 8049. These modules were chosen 
to illustrate the capability of the 8049 in frequently en- 
countered design situations. The modules included are 
full duplex serial I/O, binary multiply and divide routines, 
binary to BCD conversions, and BCD to binary conver- 
sion. It should be noted that since the 8049 is totally 
software compatible with the 8748 and 8048 these 
routines will also be useful directly on these proc- 
essors. In addition the algorithms for these programs 
are expressed in a program design language format 
which should allow them to be easily understood and 
extended to suit individual applications with minimal 
problems. 



however, is more economic than technical; these same 
peripheral chips which are such a bargain when coupled 
to a microprocessor such as the MCS-85 or 86, have a 
significant cost impact on a single chip microcomputer 
based system. The high speed of the 8049, however, 
makes it feasible to implement a serial link under soft- 
ware control with no hardware requirements beyond two 
of the I/O pins already resident on the microcomputer. 

There are many techniques for implementing serial I/O 
under software control. The application note "Applica- 
tion Techniques for the MCS-48 Family" describes 
several alternatives suitable for half duplex operation. 
Full duplex operation is more difficult, however, since it 
requires the receive and transmit processes to operate 
concurrently. This difficulty is made more severe if it is 
necessary for some other process to also operate while 
serial communication is occurring. Scanning a keyboard 
and display, for example, is a common operation of 
single chip microcomputer based system which might 
have to occur concurrently with the serial receive/trans- 
mit process. The next section will describe an algorithm 
which implements full duplex serial communication to 
occur concurrently with other tasks. The design goal 
was to allow 2400 baud, full duplex, serial communica- 
tion while utilizing no more than 50% of the available 
processing power of the high speed 8049 microcom- 
puter. 

The format used for most asynchronous communication 
is shown in Figure 1. It consists of eight data bits with a 
leading 'START' bit and one or more trailing 'STOP' bits. 
The START bit is used to establish synchronization be- 
tween the receiver and transmitter. The STOP bits en- 
sure that the receiver will be ready to synchronize itself 
when the next start bit occurs. Two stop bits are nor- 
mally used for 110 baud communication and one stop 
bit for higher rates. 



FULL DUPLEX SERIAL 
COMMUNICATIONS 

Serial communications have always been an important 
facet in the application of microprocessors. Although 
this has been partially due to the necessity of con- 
necting a terminal to the microprocessor based system 
for program generation and debug, the main impetus 
has been the simple fact that a large share of micro- 
processors find their way into end products (such as in- 
telligent terminals) which themselves depend on serial 
communication. When it is necessary to add a serial link 
to a microprocessor such as the Intel® MCS-85 or 86 the 
solution is easy; the Intel® 8251A USART or 8273 SDLC 
chip can easily be added to provide the necessary pro- 
tocol. When it is necessary to do the same thing to a 
single chip microcomputer, however, the situation 
becomes more difficult. 

Some microcomputers, such as the Intel 8048 and 8049 
have a complete bus interface built into them which 
allows the simple connection of a USART to the proc- 
essor chip. Most other single chip microcomputers, 
although lacking such a bus, can be connected to a 
USART with various artificial hardware and software 
constructs. The difficulty with using these chips, 



START STOP 
BIT 01 D2 D3 04 D5 06 07 D8 BIT 




Figure 1. 



The algorithm used for reception of the serial data is 
shown in Figure 2. It uses the on board timer of the 8049 
to establish a sampling period of four times the desired 
baud rates. For 2400 baud operation a crystal frequency 
of 9.216 MHz was chosen afterthe following calculation: 

f = 480N(2400)(4) 
where 480 is the factor by which the crystal fre- 
quency is divided within the processor 
to get the basic interrupt rate 
2400 is the desired baud rate 

4 is the required number of samples per 
bit time 

N is the value loaded into the MCS-48 
timer when it overflows 
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The value N was chosen to be two (resulting in f = 9.216 
MHz) so that the operating frequency of the 8049 could 
be as high as possible without exceeding the maximum 
frequency specification of the 8049 (11 MHz). 



START OF RECEIVE ROUTINE 



1 IF RECEIVE FLRG=8 THEN 



2 IF SERIAL INPUT=SPACE THEN 

3 RECEIVE FLBG:=1 

3 BVTE FINISHED FLAG. =8 
2 ENDIF 

1 ELSE SINCE RECEIVE FLAG=i THEN 

2 IF SYNC FLflG=8 THEN 

3 IF SERIAL INPUT=SPACE THEN 

4 SYNC FLHG:=1 
4 DRTR:=88H 

4 SHMPLE CNTR:=4 

3 ELSE SINCE SERIAL INPUT=MARK THEN 

4 RECEIVE FLAG: =8 
3 ENDIF 

2 ELSE SINCE SYNC FLRG=1 THEN 

3 SAMPLE COUNTER :=SAMPLE COUNTER-i 

3 IF SAMPLE COUNTERS THEN 

4 SflNPLE COUNTER : =4 

4 IF BVTE FINISHED FLBG=8 THEN 

5 CARRY :=SERIflL INPUT 

5 SHIFT DATA RIGHT WITH CARRY 

5 IF CARRV=1 THEN 

6 OKDATfi:=DATA 

6 IF DATA READY FLAG=8 THEN 

7 BYTE FINISHED FLAG=1 

6 ELSE 

7 BYTE FINISHED FLAG:-=1 
7 OVERRUN FLflG:=l 

6 ENDIF 

5 ENDIF 

4 ELSE SINCE BVTE FINISHED FLAG=1 THEN 

5 IF SERIAL INPUT=MARK THEN 

6 DATA READY FLAG : =1 

5 ELSE SINCE SERIAL INPUT=SPACE THEN 

6 ERROR RAG:=i 
5 ENDIF 

5 RECEIVE FLRG:=8 

5 SYNC FLAG: =8 

4 ENDIF 

3 ENDIF 



2 ENDIF 
1 ENDIF 

Figure 2 



The timer interrupt service routine always loads the 
timer with a constant value. In effect the timer is used to 
generate an independent time base of four times the re- 
quired baud rate. This time base is free running and is 
never modified by either the receive or transmit pro- 
grams, thus allowing both of them to use the same 
timer. Routines which do other time dependent tasks 
(such as scanning keyboards) can also be called periodi- 
cally at some fixed multiple of this basic time unit. 

The algorithm shown in Figure 2 uses this basic clock 
plus a handful of flags to process the serial input data. 



Once the meaning of these flags are understood the 
operation of the algorithm should be clear. The Receive 
Flag is set whenever the program is in the process of 
receiving a character. The Synch Flag is set when the 
center of the start bit has been checked and found to be 
a SPACE (if a MARK is detected at this point the receiver 
process has been triggered by a noise pulse so the pro- 
gram clears the Receive Flag and returns to the idle 
state). When the program detects synchronization it 
loads the variable DATA with 80H and starts sampling 
the serial line every four counts. As the data is received 
it is right shifted into variable DATA; after eight bits 
have been received the initial one set into DATA will 
result in a carry out and the program knows that it has 
received all eight bits. At this point it will transfer all 
eight bits to the variable OKDATA and set the Byte 
Finished Flag so that on the next sample it will test for a 
valid stop bit instead of shifting in data. If this test is 
successful the Data Ready Flag will be set to indicate 
that the data is available to the main process. If the test 
is unsuccessful the Error Flag will be set. 

The transmit algorithm is shown in Figure 3. It is exe- 
cuted immediately following the receive process. It is a 
simple program which divides the free running clock 
down and transmits a bit every fourth clock. The variable 
TICK COUNTER is used to do the division. The Transmit- 
ting Flag indicates when a character transmission is in 
progress and is also used to determine when the START 
bit should be sent. The TICK COUNTER is used to deter- 
mine when to send the next bit (TICK COUNTER MOD- 
ULO 4 = 0) and also when the STOP bits should be sent 
(TICK COUNTER = 9 4). After the transmit routine com- 
pletes any other timer based routines, such as a key- 
board/display scanner or a real time clock, can be 
executed. 



START OF TRANSMIT ROUTINE 



1 

i TICK CCUNTER:=TICK C0UNTER+1 

1 IF TICK COUNTER NOD 4=8 THEN 

2 IF TRANSMITTING FLAG=1 THEN 

3 IF TICK COUNTERS 1819 88 BINARY THEN 

4 TRANSMITTING FLAG:=8 

3 ELSE IF TICK COUNTERS 1881 88 BINARY THEN 

4 SEND END NARK 

4 TRANSMITTING FLAG: =8 

3 ELSE SINCE TICK COUNTEROTHE ABOVE COUNT THEN 

4 SEND NEXT BIT 
3 ENDIF 

2 ELSE SINCE TRANSMITTING FLAG=8 THEN 

3 IF TRANSMIT REQUEST FLAG=1 THEN 

4 XMTBYT:=NXTBYT 

4 TRANSMIT REQUEST FLAG: =8 

4 TRANSMITTING FLAG:=1 

;4 TICK C0UNTER:=9 

;4 SEND SYNC BIT (SPACE) 

rs ENDIF 
;2 ENDIF 
;1 ENDIF 

Figure 3 
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Figure 4 shows the complete receive and transmit pro- the 8049. Also included in Fig. 4 is a short routine which 
grams as they are implemented in the instruction set of was used to test the algorithm. 



ISIS-II MCS-48/UPI-41 MACRO ASSEMBLER, V2. 



LOC: OBJ 



SEQ 



SOURCE STATEMENT 



8000 C5 
0001 2499 



2 ;* * 
3;* THIS PROGRAM TESTS THE FULL DUPLEX COMMUNICATION SOFTWARE * 
4 ;* * 

6 ; 

7 *IHCLUDE(:Fi:URTEST. POL) 



9 
10 
11 

12 
12 
14 
15 
16 
17 
18 
19 
20 
21 
22 
23 
24 
25 
26 
27 
28 
29 
30 
31 
22 
33 
34 
35 
36 
37 
38 
39 
40 
41 
42 
43 
44 
45 
46 
47 
48 
49 



STflRT OF TEST ROUTINE 



1 ERROR COUNT ;=0 

1 REPEAT 

2 PATTERN :=0 
INITIALIZE TIMER 
CLEAR FLAGBVTE 
FLAG1=MARK 
REPEAT 

IF TRANSMIT REQUEST FLAG=0 THEN 
NXTBVTE : =PATTERN 
TRANSMIT REQUEST F-"LAG=1 
ENDIF 

IF DATA READV FLAG=1 THEN 
PATTERN :=OKDATR 
DATA READV FLAG:=0 

3 ENDIF 

2 UNTIL ERROR FLAG OR OVERRUN FLAG 
2 INCREMENT ERROR COUNT 
1 UNTIL FOREVER 
EOF 

IEJECT 

ORG 9 
, 1 SELECT REGISTER BANK 8 

SEL RB8 
; 1 GOTO TEST 

JMP TEST 
$ INCLUDE(:F1:UART) 



ASYNCHRONOUS RECEIVE/TRANSMIT ROUTINE 



THIS ROUTINE RECEIVES SERIAL CODE USING PIN TG AS RXD 

AND CONCURRENTLY TRANSMITS USING PIN P27 

NOTE. 

THIS ROUTINE USES FLAG 1 TO BUFFER THE TRANSMITTED 
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LOG OBJ SE9 



SOURCE STATEMENT 



= 58 ;1 DATA LINE. THIS ELIMINATES THE JITTER THAT 

= 51 ,1 MOULD BE CAUSED BY VARIATIONS IN THE RECEIVE 

= 52 ;1 TIMING. NO OTHER PROGRAM MAY USE FLAG 1 WHILE 

= 53 ,1 THE TIMER INTERRUPT IS ENABLED. 

= 54 ; 

= 55 ; 

= 56 ; 

= 57 ; 

= .58 ; 

= 59 ; REGISTER ASSIGNMENTS-BANK! 

= 61 ; 

= 62 : 

8887 = 63 ATEMP EQU R? ; USED TO SAVE ACCUMULATOR CONTENTS DURING INTERRUPT 

8806 = 64 FLGBVT EQU R6 ; CONTAINS VARIOUS FLAGS USED TO CONTROL 1 HE RECEIVE 

=65 ; AND TRRNSMIT PROCESS SEE CONSTANT DEFINITIONS FOR 

= 66 ; THE MEANING OF EACH BIT 

8605 = 67 SAMCTR EQU R5 ; SAMPLE COUNTER FOR THE RECIEVE PROCESS 

0804 = 68 TCKCTR EQU R4 , SRMPLE COUNTER FOR THE TRANSMIT PROCESS 

0808 = 69 RE69 EQU R0 ; USED AS POINTER REGISTER 

= 78 ; 

= 71 ; RAM ASSIGNMENTS 

= 72 ; =============== 

= 73 ; 

0828 = 74 MOKDAT EQU 20H :■ RECEIVE RETURNS VALID DATA IN THIS BVTE 

9821 = 75 MDfiTA EQU 21H ; RECEIVE ACCUMULATES DATA IN THIS BVTE 

0922 = 76 MXMTBY EQU 22H ; CONTAINS BVTE BEING TRANSMIT TED 

0023 = 77 MNXTBY EQU 23H ; CONTAINS THE NEXT BVTE TO BE TRANSMITTED 

= 78 $EJECT 

= 79 ; 

= 88 ; 

= 81 ; CONSTANTS 

= 82 ; ========= 

= 83 i 

= 84 ; THE FOLLOWING CONSTANTS ARE USED TO ACCESS THE FLAG BITS CONTAINED 

= 85 ; IN REGISTER FLGBVT 

= 86 ; 

8001 = 37 RCVFLG EQU 81H ; SET WHEN START BIT IS FIRST DETECTED 

= 88 ; RESET WHEN RECEIVE PROCESS IS COMPLETE 

0982 = 89 SVNFLG EQU 82H ; SET WHEN START BIT IS VERIFIED 

= 98 ; RESET WHEN RECEIVE PROCESS IS COMPLETE 

8004 = 91 BVFNFL EQU 04H ; RESET WHEN START BIT IS FIRST DETECTED 

= 92 i SET WHEN THE EIGHT DATA BITS HAVE ALL BEEN RECEIVED 

8008 = 93 DRDVFL EQU 08H ; SHOULD BE RESET BV MAIN PROGRAM WHEN DATA IS ACCEPTED 

= 94 ; SET BV RECEIVE PROCESS WHEN STOP BIT(S) ARE VERIFIED 

0810 = 95 ERRFLG EQU 18H ; SHOULD BE RESET BV MAIN PROGRAM WHEN SAMPLED 

= 96 ; SET BV RECEIVE PROCESS IF A FRAMING ERROR IS DETECTED 

0828 = 97 TRRQFL EQU 28H > TESTED BV MAIN PROGRAM TO DETERMINE IF READY 10 

= 98 ; TRANSMIT A NEH BYTE-SET TO INDICATE THAT NXTBYT 

= 99 i HAS BEEN LOADED 

= 100 ; RESET BV TRANSMIT PROCESS WHEN BVTE IS ACCEPTED 

0840 = 181 TRNGFL EQU 48H ; SET WHEN TRANSMISSION OF A BYTE STARTS 

= 182 ; RESET WHEN STOP BIT IS TRANSMITTED 

0880 = 183 OVRUN EQU 88H ; SET BY RECEIVE PROCESS WHEN OVERUN OCCURRS 

= 184 ; SHOULD BE RESET BY MAIN PROGRAM WHEN SAMPLED 

Mnemonics © 1979 Intel Corporation Figure 4 (continued) 
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LOC OBJ SEQ SOURCE STATEMENT 

= 185 ; 

= 186 ; GENERAL CONSTANTS 

= 197 ================= 

= 108 ; 

8080 = 189 NARK EQU 89H ; USED TO GENERATED A MARK 

FF7F = 118 SPACE EQU NOT 89H ; USED TO GENERATE A SPACE 

8090 = 111 STFBTS EQU % ■ CONTROLS THE NUMBER OF STOP BITS 

=112 ; 8 GENERATES ONE STOP BIT 

= 113 ; 1 GENERATES TWO SI OP BITS 

= 114 i 

= 115 $EJECT 

= 116 , 

= 11? ; START OF RECEIVE/TRANSMIT INTERRUPT SERVICE ROUTINE 

= 118 i =================================================== 

= 119 ; 

8007 = 128 ORG 0097H 

= 121 

= 122 i 1 ENTER INTERRUPT MODE 
0007 1G0A = 123 TISR: JTF UART 

0099 93 = 124 RETR 

900A D5 = 125 UART: SEL RBI 

= 126 ;i SAVE ACCUMULATOR CONTENTS 
0066 AF = 127 MOV ATEMP.. A 

= 128 ;1 RELOAD TIMER 
800C 23FE = 129 MOV fl.. #TIMCN1 

906E 62 = 130 MOV L A 

= 131 :. 

= 132 :■ OUTPUT TXD BUFFER (Fl) TO TXD I/O LINE <P27> 



= 133 i ============================ 

= 134 ; 

009F 7615 = 135 JF1 OMARK 

9011 9A7F = 136 OSPACE: ANL P2,#SPACE 

0013 641? = 137 JNP RCV090 

0915 8A88 = 138 OMARK: ORL P2#MARK 

= 139 ; 

= 140 ; START OF RECEIVE ROUTINE 

= 141 ; ======================== 

= 142 :■ 

= 143 , 1 IF RECEIVE FLAG=0 THEN 
0917 FE = 144 RCV000: MOV A,FLG6VT 

0818 1224 = 145 JB0 RCVM9 

= 146 ,2 IF SERIAL INPUT=SPflCE THEN 
001ft 3664 = 147 JT0 XMIT 

= 148 ; 3 RECEIVE FLAG: =1 

001C FE = 149 MOV A..FLGBVT 

001D 4301 = 158 ORL fl.. #RCVFLG 

= 151 ;3 BVTE FINISHED FLAG: =0 
801F 53FB = 152 ANL A, «NOT BV'FNFL 

= 153 ;2 END IF 
9021 AE = 154 MOV FLGBVLfl 

8022 8464 = 155 JHP XHIT 

= 156 ;1 ELSE SINCE RECEIVE FLAG=1 THEN 

= 157 .; 2 IF SVNC FLAG=9 THEN 
8824 3238 = 158 RCV818: JB1 RCV838 

= 159 .; 3 IF SERIAL INPUT=SPACE THEN 

Mnemonics © 1979 Intel Corporation Figure 4 (con , inued) 
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LOC OBJ SEQ SOURCE STATEMENT 



with 


7£77 

SbSS 






TTQ 








- A CA 

= 161 


. A 

■ 4 




ciih.tr- n i"v- . _j 

SVNC FLhQ.=1 


GtiA^G 




- lbd 




UKL 


H; fSYNFLG 




nt 


- lbi 




nUir 


ruxytii H 






- ltd 


< *r 




DflTfl:=89H 


CtfWP 








MOV 


R0, SMOftTfl 






- loo 




MOV 


Ml, I88H 






- 4 £7 


■ A 




SAMPLE CNTR:=4 






— IOO 




MOV 


SRMCTR,#4 






- 4£<1 

- l&J 




JMP 


XMIT 






- 4 7£» 


;'< 


ELSE SINCE SERIffi. INPUT=MflRK THEN 






— * "74 

= lrl 


;4 




RECEIVE FLAG: =9 


QQ77 




— A 70 

- lfd 


RCV929: 


ftNL 


f\j #NOT RCVFLQ 






- A 77 


;3 


END IF 




DC 

Fit 


— 4 7>1 

- Ir4 




MOV 


FLGeVTj fl 






- lfO 




JMP 


XMIT 






— A 7C 


; 2 ELSE 


SINCE SVNC FLAG=1 THEN 






— A "**7 

- lc r 


f s 


SRMPLE COUNTER . =SRMPLE COUNTER-1 




tUt>4 


- 4 7Q 

- If O 




DJNZ SflMCTR, XMIT 






- 4 7Q 

- If .7 


t s 


IF SRMPLE COUNTERS THEN 






— a oa 

- loy 


■ A 

> 4 




SAMPLE COUNTER: =4 


coin 




- 181 




MOV 


SAMCTR, #4 






- 182 


• A 




IF BVTE FINISHED FLflG=9 THEN 


083C 


coco 

5259 


= 183 




JB2 


RCV959 


twit 


97 


= 184 




aR 


C 






- ltO 


* D 




CARRV . =SERIHL INPUT 




2M2 


— A 0£ 

- lob 




JNT6 RCV840 






— A 0~7 




CPL 


C 


W342 




- loo 




MOV 


R9, IMDflTA 


«M4 


re 


_ A OQ 

- iyy 




MOV 


A,9R9 






_ A QA 

- iim 


/ -J 




SHIFT DATA RIGHT WITH CARRY 


Wj45 


r-y 
Oi 


_ JAi 

- iyi 




RRC 


A 




HO 


— A QO 

- 192 




MOV 


0R9..A 






— A Q"7 

- US 


;5 




IF CARRV=1 THEN 


BSA&7 




- 

- l^H 




JNC 


XMIT 






- 1?D 


;6 




OKDftTA:=DATf) 






- l?b 




MOV 


R9, IMOKDAT 


tw*ttj 


aft 


— 4 Q7 




MOV 








- iyo 


;6 




IF DATA REflOV FLAG=9 THEN 




re 
rt 


- iy? 




MOV 


A, FLGBVT 


nun 


I tjt 


- OQfl 

- too 




JB3 


RCV945 






- OCM 

- £01 


.' f 




BVTE FINISHED FLRG=1 




A1QA 


- 2H2 




ORL 


A; tBVFNFL 


oar j 
OOOl 


QC 

nt 


— 0D7 




MOV 


FLGBVT, A 


0002 


flACA 


- 204 




JMP 


XMIT 








;6 




ELSE 






- 206 


} < 




BVTE FINISHED FLAG:=1 






= 297 


7 




OVERRUN FLAG:=1 






= 298 


RCV845: 










= 299 




jMOV 


A.. FLGBVT 


0854 


4384 


= 218 




ORL 


A,#(BVFNFL OR OVRUN) 


8656 


AE 


= 211 




MOV 


FLGBYT, fl 






= 212 


;6 




ENDIF 






= 213 


. ; 5 




ENDIF 


9957 


8464 


= 214 




JMP 


XMIT 
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LtC OBJ 



SEQ 



SOURCE STATEMENT 



8059 265F 

8856 4388 
0050 0461 



005F 4318 



0061 53FC 
0063 HE 



0064 1C 

0865 2303 
8067 5C 
0068 9697 

006A FE 
086B 37 
006C D236 



006E 2324 
0070 DC 
8071 967B 

9073 A5 
0874 B5 



215 
216 
217 
218 
219 
220 
221 
222 
223 
224 
225 
226 
227 
228 
229 
230 
231 
232 
233 
■■ 234 
■■ 235 
■■ 236 
: 237 
■■ 238 
* 239 
= 240 
= 241 
= 242 
' 243 
= 244 
■■ 245 
= 246 
= 247 
= 248 
■■ 249 
= 250 
= 251 
= 252 
= 253 
■■ 254 
■■ 255 
= 256 
' 257 
= 253 
= 259 
= 260 

■ 261 

■ 262 

■ 263 
= 264 
' 265 

■ 266 

■ 267 

■ 268 
= 269 



;4 
;5 

RCV850 

;6 



;5 
;6 

RCV060 

;5 
;5 
;5 

RCV070 



ELSE SINCE BYTE FINISHED FLflG=l THEN 
IF SERIAL INPUT=HflRK THEN 
JNT0 RCV068 

DATA READY FLAG : =1 
ORL A, tDRDYFL 
JMP RCV070 

ELSE SINCE SERIAL :tNPUT=SPACE THEN 
ERROR FLAG:=1 
ORL A, IERRFL6 
END IF 

RECEIVE rLAG:=0 
SYNC FLAG:=0 
ANL A, #NOT<SYNFLG OR RCVFLG) 
MOV FLGBYLA 
;4 ENDIF 
;3 ENDIF 
;2 ENDIF 
;1 ENDIF 
tEJECT 

START OF TRANSMIT ROUTINE 



; TRANSMITTER OUTPUT BIT IS P2-7 
;1 TICK COUNTER. =T I CK COUNTER+1 
XMIT: INC TCKCTR 
;1 IF TICK COUNTER MOD 4=0 THEN 

MOV fl, «03H 

ANL A, TCKCTR 

JNZ RETURN 
;2 IF TRANSMITTING FLAG=1 THEN 

MOV A, FLGBYT 

CPL A 

JB6 XMT040 

IF STPBTS EQ 1 
j 3 IF TICK COUNTER=00 1910 00 BINARY THEN 



;4 



MOV A,#28H 
XRL A, TCKCTR 
JNZ XMT010 

TRANSMITTING FLAG : =0 
A, FLGBYT 
A,#NOT TRNGFL 
FLGBYT, A 
RETURN 



CONDITIONAL ASSEMBLY 



XMT810: 



MOV 
ANL 
MOV 
JMP 
ENDIF 
ELSE 
MOV 
XRL 
JNZ 



IF TICK COUNTER=00 IBM. 06 BINARY THEN 
A, #24H 



A, TCKCTR 
XHT020 

;4 SEND END MARK 

CLR Fl ; 
CPL Fl 
IF STPBTS EQ 

;4 TRANSMITTING FLAG: 



SET FLAG1 TO MARK 
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LOC OBJ 



SE6 SOURCE STATEMENT 



9875 FE 




278 




MOV 


R, FLGBVT 


; CONDITIONAL flSSEMBLS 


8876 53BF 


= 


271 




rfliL 


A, #NOT TRNGFL ; 


9978 RE 




272 




MOV 


FLGBVT, fl 




0979 0497 


= 


273 




JMP 


RETURN 


i 




= 


274 




ENDIF 








= 


275 




ELSE 


SINCE TICK COUNTEROTHE ABOVE COUNT THEN 




- 


276 


;4 


SEND NEXT BIT 




007B BS22 


= 


277 XHT020: 


MOV 


R8, INXMTBV 


807D F0 


- 


278 




MOV 


fl,SR8 




807E 67 


= 


279 




RRC 


fl 




887F m 




288 




MOV 


0R0,A 




0930 ft5 




281 




CLR 


Fl ; 


FLAG 1 WILL BE USED TO BUFFER TXD 


0081 E697 




282 




JNC 


RETURN ; 


GO TO RETURN POINT IF TXD=SPACE (8) 


8883 65 




283 




CPL 


Fl i 


ELSE COMPLEMENT FLAG 1 TO A MARK 


9084 0497 




284 




JMP 


RETURN 








285 


. -> 
} ± 


ENDIF 







= 286 ,2 ELSE SINCE TRANSMITTING FLRG=8 THEN 

= 287; 3 IF TRANSMIT REQUEST FLRG=1 THEN 
0886 B297 = 283 XHT848: JB5 RETURN ; FLAG BVTE THERE 

= 289; 4 XMTBVT : =NXTBVT 

0988 B823 = 290 MOV R0, IMNXTBV 

608A F0 =291 HOV R,8R8 

008B B822 = 292 MOV R0. IMXMTBV 

088D A0 = 293 MOV GR9, A 

= 294 ; 4 TRANSMIT REQUEST FLAG:=8 

808E FE = 295 MOV A, FLGBVT 

60SF 53DF = 296 ANL ft #NOT TRRQFL 

= 297, 4 TRANSMITTING FLAG: =1 

3091 4348 = 298 ORL A, ITRNGFL 

9093 F£ = 299 MOV FLGBVT, A 

= 390 ,-4 TICK COUNTER :=0 

0094 6C00 = 301 MOV TCKCTR, #8 

= 382 ; 4 SEND SVNC BIT (SPACE) 

0896 A5 = 303 CLR Fl ; SET FLAG 1 TO CAUSE A SPACE 

= 384 ; 3 ENDIF 
= 305 ;2 ENDIF 
= 306 ;1 ENDIF 
= 387 RETURN: 

= 383 i 1 RESTORE ACCUMULATOR 

0897 FF = 389 MOV A, ATEMP 
8098 93 = 318 RETR 

311 REJECT 

312 ; 

313 ; START OF TEST ROUTINE 



314 ; ================= 

315 i 

8180 316 ORG 8108H 

FFFE 317 TIMCNT EQU -2 

801E 319 MFLQBV EQU 1EH 

801D 319 MSAMCT EQU 1DH 

081C 328 MTCKCT EQU 1CH 

321 .: 

0807 322 ERRCNT EQU R7 

0806 323 PATT EQU R6 

324 .; 

Mnemonics © 1979 Intel Corporation Figure 4 (continued) 
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LOC OBJ 


SEQ 


SOURCE STATEMENT 




325 ; 






326 ; 






327 ;1 ERROR COUNT :=0 


i\A rv> tic fin 

0190 BFB0 


328 TEST: 


NOV ERRCNT, #0 




329 ; 1 REPEAT 




lift Tl flP ■ 








PflTTFRN - =0 
rni i uM* . v 


0102 ot80 


SjfC. 






1Yi ■ 'J 


TWTTTflJ T7F TTMFB 
inx i inLicu i men 


rid fi ji nrr 

0104 23FE 


SSI 


Mft'J fl. iTTMTNT 


8196 62 


"J"?S 


MfW T. fl 

nyi i j n 


9107 55 






9108 25 


"H7 


FN TPNTT 




■>jO .' L 


fl FAB Fl flfiftYTF 


0169 B81E 




MOV pa JIMPI fiRV 


910B B809 












010D A5 




PI P Fi 


a* nr etc 

010E B5 




rpi F1 




"?44 ;? 






34^ Til np 






346 ; 1 


IF TRANSIT T RFQIIFST Fl ftfi=0 THFW 


Hl0r bolt 


347 


MOV R0, *MFI PiRV 


0111 F0 




MOV A. ARfl 


tin A O DOOjl 

0112 t(2ii4 




TR5 TRFP 






NyTfiVTF • =PflTTFPN 

fnfS 1 DT 1 L . in 1 1 L-M 1 ! 


(54 A A DCn 

0114 B923 


IS* 


MOV PI ftMMVTRV 


olio rt 


JJt 


bftTJ fl PflTT 


011 r HI 


35"? 


MOV iBEM fl 
HUT 'rKij n 






TPftWCHTT PFOIIF^T CI flfiH 
IKnrl3nil KcWJt-)l rLrPJ-1 


HA A O T 
011o -VJ 


355 






356 


; SO THAT MUTUAL FXTI IJSIOH IS MATNTHlNFf) UHILF 




357 


; "lUC CI Qf: pUTT jr gpTfJfj MnDIFTFO 
; int. runu ui il ij i\ 


8119 F0 


358 


MOV A. I?R0 


rtJ J rt J~l-rtrt 

911ft 4320 


359 


ORL fl, iTRRQFL 


611C fi0 




MOW fiPfl, fl 


011D 25 


361 


FN TCNTI 


Q4AC A £09 

Wilt ibtc 


362 


JTF TESTft 


(tl9n OA.? A 


363 


JMP TREC 


CM 59 IdflO 


364 TESTA 


CALL UfiRT ; CALL ItART BECAUSE TIMER OVERFLOWED WIRING LOi'.i 




365 ;3 


ENDIF 




366 ;3 


IF DATA PEADV FLAG=1 THEN 

XI If 1 1 1 1 1 P.UI V t i LI VJ JL 1 < IL.M 




SO I 1 KLl- . 




01^4 F0 


Sob 


nuY hf i*KW 


(2A ~>~7 

0125 V 


369 


CPL fl 


0126 7233 


370 


JB3 TRECE 




371 ;4 


PATTERN :=OKDflTA 


0128 B920 


372 


MOV Rl, #MOKDflT 


812fl Fl 


373 


MOV A,l?Rl 


QA 9D OC 

yidD nt 


374 


MOV PATT, A 




375 ,;4 


DATA READ'V FLAG:=0 


012C 35 


376 


DIS TCNTI i LCCK OUT TIMER INTERRUPT 




377 


; SO THAT MUTUAL EXCLUSION IS MAINTIRNED WHILE 




378 


; THE FLAG BVTE IS BEING MODIFIED 


012D F9 


379 


MOV A,!?R0 
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LOC OBJ SEQ 



SOURCE STATEMENT 



912E 53F7 389 ML ft, tNOT DRDVFL 

0139 flfl 381 NOV m,f\ 

6131 25 382 EN TCNTI 

0132 1636 383 JTF TESTB 

0134 2438 384 JNP TRECE 

9136 148fl 385 TESTB: CALL URRT ; CULL UflRT IF TIMER OVERFLOWED DURING LOCKOUT 

386 TRECE: 
367; 3 ENDIF 

388 ;2 UNTIL ERROR FLRG OR OVERRUN FLAG 

8138 F8 389 MOV R,(?R0 

8139 5398 398 ANL R, KOYRUN OR ERRFLG) 
813B C68F 391 JZ TILOP 

392 ; 2 INCREMENT ERROR COUNT 
813D IF 393 INC ERRCNT 

394 ;1 UNTIL FOREVER 
813E 2482 395 JMF TLOP 

396 ;EOF 

397 END 



USER SVM80LS 




















RTEMP 8897 


BVFNFL 9804 


DRDVFL 


9898 


ERRCNT 


0007 


ERRFLG 8810 


FLGBVT 8086 


MftRK 8088 


PlDflTfl 8821 


MFL68V 091E 


MNXTBV 9823 


MOKDflT 


0020 


NSRMCT 


901D 


MTCKCT 001C 


MXMTBV 8822 


OMflRK 8815 


OSPRCE 0811 


ovrun ®m 


PfflT 8886 


RCV888 


0817 


RCV819 


0024 


RCV028 8033 


RCV838 8038 


RCV040 0842 


kCV845 8854 


RCV858 9859 


RCV868 985F 


RCV879 


0861 


RCVFLG 


8081 


REG9 8080 


RETURN 889? 


SflMCTR 0085 


SPRCE FRF 


STPBTS 9888 


SVNFLG 8882 


TCKCTR 


8884 


TEST 


8180 


TESTR 8122 


TESTB 8136 


TILOP 018F 


TIMCNT FFFE 


TISR 8007 


TLOP 0192 


TREC 


0124 


TRECE 


8138 


TRNGFL 8040 


TRRQFL 8828 


UflRT 888fl 


XHIT 8064 


XMT010 986E 


XMT829 007B 


XMT849 


9886 















flSSEMBLV COMPLETE, NO ERRORS 
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MULTIPLY ALGORITHMS 

Most microcomputer programmers have at one time or 
another implemented a multiply routine as part of a 
larger program. The usual procedure is to find an algo- 
rithm that works and modify it to work on the machine 
being used. There is nothing wrong with this approach. 
If engineers felt that they had to reinvent the wheel 
every time a new design is undertaken, that's probably 
what most of us would be doing— designing wheels. If 
the efficiency of the multiply algorithm, either in terms 



X 



of code size or execution time is important, however, it 
is necessary to be reasonably familiar with the multipli- 
cation process so that appropriate optimizations for the 
machine being used can be made. 

To understand how multiplication operates in the binary 
number system, consider the multiplication of two four 
bit operands A and B. The "ones and zeros" in A and B 
represent the coefficients of two polynomials. The 
operation AxB can be represented as the following 
multiplication of polynomials: 

A3*2 3 + A2*2 2 + A1*2 1 + A0*2° 
B3*2 3 + B2*2 2 + B1*2 1 + B0*2° 



+ B0A3*2 3 + B0A2*2 2 + B0A1*2 1 + B0A0*2° 
+ B1A3*2 4 + B1A2*2 3 + B1A1*2 2 + B1A0*2 1 
+ B2A3*2 5 + B2A2*2 4 + B2A1*2 3 + B2A0*2 2 
+ B3A3*2 6 + B3A2*2 5 + B3A1*2 4 + B3A0*2 3 
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The sum of all these terms represents the product of A 
and B. The simplest multiply algorithm factors the 
above terms as follows: 

A'B= B0'(A)*2°+ B1*(A)*2 1 + B2*(A)*2 2 + B3*(A)*2 3 

Since the coefficients of B (i.e., BO, B1, B2, and B3) can 
only take on the binary values of 1 or 0, the sum of the 
products can be formed by a series of simple adds and 
multiplications by two. The simplest implementation of 
this would be: 

MULTIPLY: 
PRODUCT =0 

IFB0 = 1 THEN PRODUCT: = PRODUCT + A 
IF B1 = 1 THEN PRODUCT: = PRODUCT + 2*A 
IF B2 = 1 THEN PRODUCT: = PRODUCT + 4* A 
IFB3=1 THEN PRODUCT: = PRODUCT + 8* A 
END MULTIPLY 

In order to conserve memory, the above straight line 
code is normally converted to the following loop: 

MULTIPLY: 
PRODUCT: = 
COUNT: = 4 
REPEAT 

IF B[0]=1 THEN PRODUCT: = PRODUCT + A ENDIF 
A: = 2*A 
B: = B/2 

COUNT: = COUNT- 1 
UNTIL COUNT: = 
END MULTIPLY 

The repeated multiplication of A by two (which can be 
performed by a simple left shift) forms the terms 2*A, 
4*A, and 8*A. The variable B is divided by two (per- 
formed by a simple right shift) so that the least signifi- 
cant bit can always be used to determine whether the 
addition should be executed during each pass through 
the loop. It is from these shifting and addition opera- 



tions that the "shift and add" algorithm takes its com- 
mon name. 

The "shift and add" algorithm shown above has two 
areas where efficiency will be lost if implemented in the 
manner shown. The first problem is that the addition to 
the partial product is double precision relative to the 
two operands. The other problem, which is also related 
to double precision operations, is that the A operand is 
double precision and that it must be left shifted and 
then the B operand must be right shifted. An examina- 
tion of the "longhand" polynomial multiplication will 
reveal that, although the partial product is indeed dou- 
ble precision, each addition performed is only single 
precision. It would be desirable to be able to shift the 
partial product as it is formed so that only single preci- 
sion additions are performed. This would be especially 
true if the partial product could be shifted into the "B" 
operand since one bit of the partial product is formed 
during each pass through the loop and (happily) one bit 
of the "B" operand is vacated. To do this, however, it is 
necessary to modify the algorithm so that both of the 
shifts that occur are of the same type. 

To see how this can be done one can take the basic 
multiplication equation already presented: 

A*B= B0*(A*2°)+ B1*(A*2 1 )+ B2*(A*2 2 ) + B3*(A*2 3 ) 

and factoring 2 4 from the right side: 

A*B = 2 4 [B0*(A*2 _4 )+ B1*(A*2~~ 3 ) 
+ B2*(A*2 _2 )+B3*(A*2~ 1 )] 

This operation has resulted in a term (within the 
brackets) which can be formed by right shifts and adds 
and then multiplied by 2 4 to get the final result. The 
resulting algorithm, expanded to form an eight by eight 
multiplication, is shown in figure 5. Note that although 
the result is a full sixteen bits, the algorithm only per- 
forms eight bit additions and that only a single sixteen 
bit shift operation is involved. This has the effect of 
reducing both the code space and the execution time 
for the routine. 



ISIS- II MCS-48/UPI-41 MACRO ASSEMBLER, V2. 



LOG OBJ SEQ SOURCE STATEMENT 

1 *HRCR0F ILE 

2 $INCLUDE<:F1:NPV8. HE'D) 



= 4 ;* * 

= 5 ; * HPV8X8 * 

= 6 ; * * 

= 8 ;* * 

= 9;* THIS UTILITY PROVIDES AN 8 BV 8 UNSIGNED HULTIPLV * 

= 18 i* AT ENTRY: * 

= 11;* A = LOWER EIGHT BITS OF DESTINATION OPERAND * 

= 12 i * XA= DON'T CARE * 

= 12 i* Rl= POINTER TO SOURCE OPERAND (MULTIPLIER) IN INTERNAL MEHEQRY * 

Mnemonics © 1979 Intel Corporation Flours s 
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LOC OBJ SEQ SOURCE STATEMENT 



= 14 i * * 

= 15 ;* AT EXIT: * 

= 16 ,* A = LOWER EIGHT BITS OF RESULT * 

= 17 * Xfl= UPPER EIGHT BITS OF RESULT * 

= 18 ; * C = SET IF OVERFLOW ELSE CLEARED * 

= 19 ,+ * 

= 20 i ***+****+*+**+*+********+++*****++****++*++.+** 

21 ; 

22 ; 

23 *INCLUDE< :F1:MPV8. FDD 
= 24 il MPY8X3: 

= 25 ; 1 MULTIPLICftND[15-8]:=0 

= 26 ..1 COUNT: =8 

= 27 ; 1 REPEAT 

= 28 ,2 IF MULTIPLICAND 0]=8 THEN BEGIN 

= 29 ,3 MULTIPLICAND ^MULTIPLICANDS 

= 38 ; 2 ELSE 

= 31 il MULTIPL ICflNDE 15-S 3 : =MULT IPL I CflNW 15-3 J+MULT IPL IER 

= 32 il MULTIPLICRND:=MULTIPLICrMV2 

= 33 ; 2 END IF 

= 34 ;2 COUNT :=COUNT-l 

= 35 ; 1 UNTIL COUNTS 

= IS >t END MFVS'XS 

38 ; EQUATES 

7Q ; ======= 

40 i 

0992 41 Xfl EQU R2 

0003 42 COUNT EQU R3 

0904 43 ICNT EQU R4 

44 ; 

0003 45 DIGPR EQU 3 

46 ; 

47 *EJECT 

48 $INCLUDE(:F1:MF'V8) 
= 49 ; 1 MPV8X8 : 

= 59 MPV8X8: 

= 51 it MULT IPL I CHHDC 15-8 3 : =9 
0000 6A00 = 52 MOV XA, #00 

= 53 ;1 COUNT: =8 
8002 BD88 = 54 MOV COUNT, #8 

= 55 , 1 REPEAT 

= 56 MPV8LP: 

= 57 ; 2 IF MULT I PL ICflNDL 8 3=8 THEN BEGIN 



0004 120E 


= 58 


JB8 


MPV8A 




= 59 .; 3 


MULT I PL I CAND : =MULT I F 


0606 2fl 


= 60 


XCH 


A,XA 


0007 97 


= 61 


CLR 


c 


0098 67 


= 62 


RRC 


A 


0009 2A 


= 63 


XCH 


A, Xfl 


000A 67 


= 64 


RRC 


A 


O00B EB04 


= 65 


DJNZ 


COUNT, MPV3LP 


006D 83 


= 66 

= 67 ; 2 


PET 
ELSE 
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LOC OBJ 



SEQ 



SOURCE STRTEMENT 



099E 2H 
968F 61 

0018 67 

9011 2fl 

9012 67 
8613 EB04 
«»15 83 



68 HPY8H 

69 ; 3 
78 
71 
72 
73 
74 
75 
76 
77 
73 
79 
80 



MULTIPLICAND!. 15-8 ] : 4HJLTIPLICHNW 15-8 MULTIPLIER 



XCH A, XA 
ADD fl,»Rl 
RRC A 
XCH fl, Xfl 
RRC fl 

OJNZ COUNT, HPV8LP 
RET 

MULTIPLICAND : =MULTIPLICfiND/2 
END IF 

COUNT :=C0UNT-1 
UNTIL COUHT=0 
END MPY3X3 



END 



USER SYMBOLS 

COUNT 80@3 DIGPP 0003 ICNT 



MPVSfl m£ MFV8LP 0984 PIPY8XS 0930 Xfl 



0092 



ASSEMBLY COMPLETE. NO ERRORS 
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DIVIDE ALGORITHMS 

In order to understand binary division a four bit opera- 
tion will again be used as an example. The following 
algorithm will perform a four by four division: 



DIVIDE: 

IF 16*DIVISOR>= DIVIDEND THEN 

SET OVERFLOW ERROR FLAG 
ELSE 

IF 8*DIVISOR>= DIVIDEND THEN 
QUOTIENT^]: = 1 

DIVIDEND: = DIVIDEND -8*DI VISOR 
ELSE 

QUOTIENT[3]: = 
ENDIF 

IF 4* DIVISOR>= DIVIDEND THEN 
QUOTIENT^]: = 1 

DIVIDEND:= DIVIDEND-4*DIVISOR 
ELSE 

QUOTIENTS]: = 
ENDIF 

IF 2*DIVISOR>= DIVIDEND THEN 
QUOTIENT[1]:= 1 

DIVIDENDS DIVIDEND- 2*DIVISOR 
ELSE 

QUOTIENT[1]: = 
ENDIF 

IF 1*DIVISOR>= DIVIDEND THEN 
QUOTIENT^]: = 1 

DIVIDEND: = DIVIDEND - 1 'DIVISOR 
ELSE 

QUOTIENT[0]: = 
ENDIF 
ENDIF 
END DIVIDE 



The algorithm is easy to understand. The first test asks 
if the division will fit into the dividend sixteen times. If it 
will, the quotient cannot be expressed in only four bits 
so an overflow error flag is set and the divide algorithm 
ends. The algorithm then proceeds to determine if eight 
times the divisor fits, four times, etc. After each test it 
either sets or clears the appropriate quotient bit and 
modifies the dividend. To see this algorithm in action, 
consider the division of 15 by 5: 

00001111 (15) 
-01010000 (16*5) 

Doesn't fit— no overflow 

00001111 (15) 
-00101000 (8*5) 

Doesn't fit— Q[3] = 

00001111 (15) 
-00010100 (4*5) 

Doesn't fit— Q[2] = 

00001111 (15) 
-00001010 (2*5) 

00000101 Fits— Q[1]= 1 

00000101 (15-2*5) 
-00000101 (1*5) 

00000000 Fits— Q[0]=1 

The result is Q = 0011 which is the binary equivalent of 
3— the correct answer. Clearly this algorithm can (and 
has been) converted to a loop and used to perform divi- 
sions. An examination of the procedure, however, will 
show that it has the same problems as the original mul- 
tiply algorithm. 
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The first problem is that double precision operations are 
involved with both the comparison of the division with 
the dividend and the conditional subtraction. The 
second problem is that as the quotient bits are derived 
they must be shifted into a register. In order to reduce 
the register requirements, it would be desirable to shift 
them into the divisor register as they are generated 
since the divisor register gets shifted anyway. Unfor- 
tunately the quotient bits are derived most significant 
bits first so doing this will form a mirror image of the 
quotient— not very useful. 

Both of these problems can be solved by observing that 
the algorithm presented for divide will still work if both 
sides of all the "equations" involving the dividend are 
divided by sixteen. The looping algorithm then would 
proceed as follows: 

DIVIDE: 
QUOTIENT: = 
COUNT: = 4 

DIVIDEND: = DIVIDEND/16 

IF DIVISOR>= DIVIDEND THEN 

OVERFLOW FLAG: = 1 
ELSE 
REPEAT 
DIVIDEND: = DIVIDEND *2 
QUOTIENT: = QUOTIENT*2 
IF DIVISOR>= DIVIDEND THEN 
QUOTIENT: = QUOTIENT + 1/*SET QUOTIENT[0]*/ 
DIVIDENDS DIVIDEND- DIVISOR 
ENDIF 

COUNT: = COUNT -1 
UNTIL COUNT = 
ENDIF 
END DIVIDE 



When this algorithm is implemented on a computer 
which does not have a direct compare instruction the 
comparison is done by subtraction and the inner loop of 
the algorithm is modified as follows: 



REPEAT 

DIVIDEND:= DIVIDEND*2 
QUOTIENT: = QUOTIENTS 
DIVIDEND:= DIVIDEND- DIVISOR 
IF BORROW = THEN 

QUOTIENT: = QUOTIENT + 1 
ELSE 

DIVIDENDS DIVIDEND-)- DIVISOR 
ENDIF 

COUNT: = COUNT - 1 
UNTIL COUNT = 



An implementation of this algorithm using the 8049 in- 
struction set is shown in figure 6. This routine does an 
unsigned divide of a 16 bit quantity by an eight bit quan- 
tity. Since the multiply algorithm of figure 5 generates a 
16 bit result from the multiplication of two eight bit 
operands, these two routines complement each other 
and can be used as part of more complex computations. 



ISIS-II MCS-48/UPI-41 MACRO ASSEMBLER.. V2. 8 



LOC OBJ SEQ SOURCE STATEMENT 

1 tHACROFILE 

2 *INCLUDE(:F1:DIV16. HED) 



= 4 .;* * 

= 5 ; * DIV16 * 

= 6 ;* * 

= 7 ; *=======z:=============^========================================r==r:====:====* 

= 9 i* THIS UTILITY PROVIDES AN 16 BY 8 UNSIGNED DIVIDE * 

= 19 i* AT ENTRY: * 

=11;* fi = LOWER EIGHT BITS OF DESTINATION OPERAND * 

= 12 :■* XA= UPPER EIGHT BITS OF DIVIDEND * 

= 13;* Rl= POINTER TO DIVISOR IN INTERNAL MEMORY * 

= 14 ;* * 

= 15 ;* AT EXIT: * 

= 16;* A = LOWER EIGHT BITS OF RESULT * 

= 17 ;* Xfl= REMAINDER * 
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LOC OBJ SEQ SOURCE STATEMENT 

= 18 ; * C = SET IF OVERFLOW t'LSE CLEARED * 

= 19 ;* * 
= 28 i ****************************^^ 

21 .; 

22 ; 

23 *INCLUDE(:F1:DIV16.PDL> 
= 24 il DIV16: 

= 25 ;1 COUNT : =8 

= 26 ;1 D I V I DENDC 15-8 ] : =D I V I DENDt 15-8 ]-D I V I SOR 
= 27 ;1 IF BORROWS THEN /* IT FITS*/ 
= 28 ; 2 SET OVERFLOW FLAG 
= 29 i 1 ELSE 

= 39 ;2 RESTORE DIVIDEND 

= 31 ;2 REPEAT 

= 32 ;3 DIVIDEND :=DIVIDEN0*2 

= 33 ; 3 QUOTIENT :=QUOTIENT*2 

= 34; 3 DIVIDEND! 15-8] : =OIVIDENK 15-B 3-DIVISOR 

= 35 i 3 IF BORROWS THEN 

= 36 ;4 RESTORE DIVIDEND 

= 37 i 3 ELSE 

= 38 4 QUOTIL : NTt0]:=l 

= 39 3 END IF 

= 40 ;3 COUNT :=COUNT-l 

= 41 -2 UNTIL COUNT=0 

= 42 ; 2 CLEAR OVERFLOW FLAG 

= 43 ;1 END IF 

= 44 il ENDDIVIDE 

45 , 

46 i EQUATES 

47 ; ======= 

48 ; 

0602 49 XA EQU R2 

0063 50 COUNT EQU R3 

51 , 

52 JEJECT 

53 *INCLUDE(:F1:DIV16) 
= 54 ,1 DIV16: 

0800 2fl = 55 DIV16: XCH fl,Xfl i ROUTINE WORKS MOSTLV WITH BUS 15-8 

= 56 il COUNT: =8 

0081 BB08 = 57 MOV COUNT, #8 

= 58 ,1 DIVIDEND! 15-8 ] : =DIVIDt'NDt 15-8 J-DIVISOR 

0003 37 = 59 CPL fl 

8004 61 = 60 ADD A..0R1 

0805 37 = 61 CPL R 

= 62 ;1 IF B0RR0W=8 THEN /* IT FITS*,-' 

0006 F68B = 63 JC DIVIfi 

= 64 > 2 SET OVERFLOW FLAG 

9908 H7 = 65 CPL C 

0009 0424 = 66 JMP DIVIB 

= 67 il ELSE 

= 68 DIVIft: 

= 6? 2 RESTORE DIVIDEND 

00OB 61 = 70 ADD A, §R1 

= 71 i 2 REPEAT 

= 72 DIVILP: 

= 73 ; 3 DIVIDEND : =DI VIDEND+2 

Mnemonics © 1979 Intel Corporation Fjgure 6 (con , inued) 
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LOC OBJ 


SEQ 




SOURCE STATEMENT 




= 74 


. -> 

t ± 


QUOTIENT . =QU0TIENT*; 


880C 9? 


_ "7C 
— | J 




CLR C 


urn 2fl 


= 76 




xch Hi m 


800E P . 7 


i f 




RLC A 


090F 2R 


= 78 




XCH A, Xfl 


8018 F7 


= 79 




RLC fl 


8911 E618 


= 88 




JNC DIVIE 


O013 37 


= 81 




CPL fl 


£1014 61 


= 82 




ADD fl, m 


9815 37 


= 83 




CPL fl 


8016 8428 


= 84 




IMP DIVIC 




= 85 


. ~> 


DIVIDEND! 15-8 ] : =DIV: 


8818 37 


= 86 


DIVIE 


: CPL fl 


8819 61 


= b'7 




ADD fl, m 


881R 37 


- vO 




CPL fl 




= 89 




IF BGRR0H=1 THEN 


981B E628 


= 90 




JNC DIVIC 




= 91 


,4 


RESTORE DIVIDEND 


801D 61 


= 92 




HDD fl, C'Rl 


881 E 8421 


= 93 




JMP DIVID 




= 94 


} s 


ELSE 




- 95 


DIVTC. 






= 96 


,4 


QUOTIENT! 01=1 


0820 Ifl 


= 97 




INC Xfl 




= 98 


. "> 


END IF 




= 99 


> J- 


COUNT : =COUNT-l 




= 108 


•■> 


UNTIL C0UNT=8 


0821 E80C 


= 101 


DIVID 


: DJNZ COUNT.. DIVILP 




= 102 




CLEAR OVERFLOW FLAG 


8823 97 


= 103 




CLR C 




= 184 


; 1 END IF 




= 105 


; 1 EHDDIV10E 


8024 2R 


= 166 


DIVIB 


: XCH A, XA 


8825 83 


= 107 




RET 




168 


END 





USER SYMBOLS 
COUNT 8803 
Xfl 0902 



DM6 0088 D1VIA 0886 DIVIB 9024 DIVIC 0820 DIVID 9621 DIVIE 8818 DIVILP 888C 



RSSERBLV COMPLETE, NO ERRORS 
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BINARY AND BCD CONVERSIONS 

The conversion of a binary value to a BCD (binary coded 
decimal) number can be done with a very straight- 
forward algorithm: 



CONVERT_TO_BCD: 
BCDACCUM: = 
COUNT: = PRECISION 
REPEAT 

BIN: = BIN * 2 



BCD: = BCD * 2+ CARRY 



COUNT: = COUNT- 1 
UNTIL COUNT = 
END CONVERT_TO_BCD 



The variable BCDACCUM is a BCD string used to ac- 
cumulate the result; the variable BIN is the binary num- 
ber to be converted. PRECISION is a constant which 
gives the length, in binary bits of BIN. To see how this 
works, assume that BIN is a sixteen bit value with the 
most significant bit set. On the first pass through the 
loop the multiplication of BIN will result in a carry and 
this carry will be added to BCD. On the remaining 
passes through the loop BCD will be multiplied by two 
15 times. The initial carry into BCD will be multiplied by 
2 15 or 32678, which is the "value" of the most significant 
bit of BIN. The process repeats with each bit of BIN 
being introduced to BCDACCUM and then being scaled 
up on successive passes through the loop. Figure 7 
shows the implementation of this algorithm for the 
8049. 
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ISIS-11 MCS-48/UPI-41 MACRO ASSEMBLER, V2. 8 



LOC OBJ SEQ SOURCE STATEMENT 



1 IMACROFILE 

2 f INCLUDE ( : Fl : CONBCD. HED) 

4 ; * * 

5 ;* CONBCD * 

6 ;* * 

7 ; *r==========================rr============================================* 

8 i+ + 
9.:* THIS UTILITY CONVERTS fl 16 BIT BINflRV VALUE TO BCD * 

18 ;* AT ENTRV: * 

11.:* A = LOWER EIGHT BITS OF BINflRV VALUE * 

12 .:* ! : <A= UPPER EIGHT BUS OF BINflRV VALUE * 

13;* R8= POINTER TO fl PACKED BCD SIRING * 

14 .;* * 

15 .;* AT EXIT- * 
16.:* A = UNDEFINED * 
17;+ Kfl= UNDEFINED * 

18 ; + C = SET IF OVERFLOW ELSE CLEARED * 

19 .: * * 

21 .; 

22 , 

23 fINCLUDE<:Fl:C0N8CD. PDL) 

24 ; 1 CONVEPT.TO.BCD 

25 :1 BCDACC =8 

26 .:! COUNT . =16 

27 , 1 REPEAT 

28 .2 BIN:=BIN*2 

29 ;2 BCD.=BCD*2+CARRY 

30 ;2 IF CRRRV FROM BCDACC GOTO ERROR EXIT 

31 ;2 COUNT :=COUNT-l 

32 ;1 UNTIL COUNTS 

33 ; 1 END CONVERT.TCLBCD 

34 ; 

35 ; EQUATES 



36 



0002 




Xfl 


EQU 


R2 


8003 


39 


COUNT 


EQU 


R3 


0084 


40 


ICNT 


EQU 


R4 




41 








0083 


42 


DIGPR 


EQU 


"> 



43 .: 

44 SEJECT 

45 JINCLUDE(:F1 CONBCD) 
= 46 ; 

8885 = 47 TEMPI SET R5 

= 48 , 

- 49 ■ 1 CONVERT.TU.BCD 

= 59 CNBCD. 

= 51 ;1 BCDACC: =9 
0088 28 = 52 XCH fl, R0 

Mnemonics © 1979 Intel Corporation Figure 7 
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i Hi'" im t 

UJL- UtJJ 


ccn 




SOURCE STATEMENT 




- c,7 




MOV 


R1,A 


to 


- ^.A 




XCH 


fi,RO 


ftflfl? RTflT. 


- 

- 




MOV 


ICNT, #DIGPR 


ilQac; da an 
wV-J PlOP 


— cr 


BCDCOfl 


MOV 


m, #08 


tfOW 17 


— C7 

- .'! 




INC 


Rl 


OftflQ croc: 


— tro 

- JO 




DJNZ 


ICNT, BCDCOfl 




- SQ 


;1 COUNT: =16 




Own Dblt? 


- Cfl 

— nM 




MOV 


COUNT, #16 




bl 


;1 REPEAT 








prnrnR 










. 

.' £. 


BIN:=BIN*2 


ftflflP 97 






CLR 


C 


t'ctv r i 


J 




RLC 


fl 




- 

— nn 




XCH 


fl,Xfl 


none l"7 


£7 




RLC 


fl 




- bo 




XCH 


R.Xft 




— £TQ 

- 07 


■ '"j 


BCD:=BCD*2+CflRRV 


troll to 


- 7Q 




XCH 


fl,R0 


Wit nj 


- I 1 




MOV 


Rl,fl 


WIJ cO 


— "'O 

- f £ 




XCH 


fl,R8 


win tsty^ 


_ -r-i 
- i ± 




MOV 


ICNT, #DIGPR 


OTJlO hi-' 


- 7M 

- f ^ 




MOV 


TEMPI, fl 


tJtfli rl 


— 7 C 

f -J 


BCDOC: 


MOV 


fl, 0R1 


Wlo f 1 


7£T 




flDDC 


fl, §R1 




- 77 

~ r i 




Dfl 


fl 


train m 


7fl 




MOV 


0R1,A 


ACM P -1 Q 

twlD 1_* 


7Q 




INC 


Rl 


Oft* r cr^i 7 
OfcuL- till 


- oO 




DJNZ 


ICNT, BCDOC 


ACM r rri 


- 0^ 

- ol 




MOV 


fl, TEMPI 




- GO 


i2 


IF CRRRV FROM BCDflCC GC 


gum r fcm 


oi 




JC 


BCDCOD 




- 04 


. .-i 
.■ i. 


COUNT :=C0UNT-1 




- oO 


; 1 UNT 


IL COUNT=( 




Wei totJL- 


ob 




DJNZ 


COUNT, BCDCOB 




- o~> 

- Of 




CLR 


C ; CLE 




= 88 


; 1 END CONVERT_TO_BCD 


9824 83 


= 89 


BCDCOC 


■: RET 






90 


end 







USER SVMBOLS 

BCDCOfl 8805 BCDCOB 09OC BCDCOD 0024 BCDOC 0017 CNBCD 0009 COUNT 0002 DIGPR O00K ICNT 0804 
TEMPI 0605 Xft 0892 

flSSEMBLV COMPLETE, NO ERRORS 
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The conversion of a BCD value to binary is essentially 
the same process as converting a binary value to BCD. 

CO N V E RT_TO_B I N A R Y 
BIN: = 

COUNT: = DIGNO 

REPEAT 

BCDACCUM:= BCDACCUM * 10 
BIN:= 10 * BIN + CARRY DIGIT 
COUNT: = COUNT - 1 

UNTIL COUNT = 
END CONVERT_TO_BINARY 

The only complexity is the two multiplications by ten. 
The BCDACCUM can be multiplied by ten by shifting it 
left four places (one digit). The variable BIN could be 
multiplied using the multiply algorithm already dis- 
cussed, but it is usually more efficient to do this by mak- 



ing the following substitution: 

BIN = 10 * BIN = (2) * (5) * (BIN) = 2 * (2 * 2+ 1) * BIN 

This implies that the value 10 * BIN can be generated by 
saving the value of BIN and then shifting BIN two places 
left. After this the original value of BIN can be added to 
the new value of BIN (forming 5 * BIN) and then BIN can 
be multiplied by two. It is often possible to implement 
the multiplication of a value by a constant by using such 
techniques. Figure 8 shows an 8049 routine which con- 
verts BCD values to binary. This routine differs slightly 
from the algorithm above in that the BCD digits are read, 
and converted to binary, two digits at a time. Protection 
has also been added to detect BCD operands which, if 
converted, would yield binary values beyond the range 
of the result. 



ISIS-I! MCS-48/UPI-41 MACRO ASSEMBLER, V2. 



L0C OBJ SEQ SOURCE STATEMENT 

1 INHCR0FILE 

2 $INCLUDE(:F1:C0NBIN. HED) 
= 3 .: 



= 4 ; * * 

= 5;* C0NBIN * 

= 6 ; * * 

r 7 ; #== == ==== == ===== = ==r=====r=============================================* 

= 8 ;* * 

= 9 ;* THIS UTILITY CONVERTS A 6 DIGIT BCD VALUE TO BINflRV * 

= 10;* AT ENTRY; * 

= 11 ;* RB= POINTER TO A PACKED BCD STRING * 

= 12 * 

= 13 :■* AT EXIT: * 

= 14 j* A = LOWER EIGHT BITS OF THE BINARY RESULT * 

= 15;+ XR= UPPER EIGHT BITS OF THE BINARY RESULT * 

= 16 ; * C = SET IF OVERFLOW ELSE CLEARED * 

= 17 .;* * 



= 13 ; 

19 ; 

20 ; 

21 t INCLUDE ( : Fl : CONB I N. PDL) 
= 22 

= 23 ■ 

= 24 ;1 C0NVERT_T0_B I NARY 

= 25 ;1 POINTER9:=POINTER0+D1GITPAIR-1 

= 26 ;1 COUNT :=DIGITPAIR 

= 27 ,1 BIN:=0 

= 23 ; 1 REPEAT 

= 29 ; 2 BIN:=BIH+ie 

= 3@ ; 2 B I N : =B IN+MEM < R8 > 1 7-4 ] 

= 31 ;2 BIN:=BIN*10 

= 32 ; 2 BIN:=6IN+riEM<R0>[3-03 

Mnemonics © 1979 Intel Corporation 
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LOC OBJ SEQ SOURCE STATEMENT 

= 33 2 POINTERS : =POI NTER8-1 

= 34 ,2 COUNT :=COUNT-l 

= 35 ; 1 UNTIL COUNTS 

= 36 ; 1 END CONVERUO.BINARV 

77 ■ 

J! } 

38 ; EQUATES 
jq , ======= 

48 ; 

0002 41 XA EQU R2 

0003 42 COUNT EQU R3 

0004 43 ICNT EQU R4 
44 ; 

9003 45 DIGPR ECU 3 

46 ; 

47 tEJECT 

48 *INCLUDE<:Fl:CONBIN> 
= 49 ; 

8005 = 50 TEMPI SET R5 

9006 = 51 TEMP2 SET R6 

= 52 ; 

= 53 ; 1 CONVERT.TO.BINARV 

= 54 CONBIN: 

= 55 ;1 POINTERS r =POINTER8+OIGITPftIR-l 

8000 F8 = 56 (10V A, R0 

0001 0362 = 57 ADD A,#D1GPR-1 

8003 R8 = 58 110V R0, A 

= 59 ;1 COUNT :=DIGITPAIR 

8004 BB83 = 69 MOV COUNT, #OIGPR 

= 61 il BIN =9 

8086 27 = 62 CLR A 

0007 AA = 63 MOV XA.. A 

= 64 ; 1 REPEAT 

= 65 CONBLP: 

= 66 ;2 BIN:=BIN*10 

8008 142B = 67 CALL C0NB18 

808ft F62A = 68 JC CONBER 

= 69; 2 BIN : =BIN+MEM(RS)t 7-4 ] 

it08C AD = 70 MOV TEMPI, A 

8080 F8 = 71 MOV A, (?R0 

808E 47 = 72 SWAP A 

000F 538F = 73 ANL A, #8FH 

0011 6D = 74 ADD A, TEMPI 

0012 2A = 75 XCH A, XA 

0013 1388 = 76 ADDC A, #08 
8015 2A = 77 XCH A, XA 
8816 F62A = 78 JC CONBER 

= 79; 2 BIN:=BIN*1S 

0018 142B = 80 CALL CDNB18 

801A F62A = 81 JC CONBER 

= 82 ; 2 eiN:=BIN+MEM(R0)C3-8] 

801C AD = 33 MOV TEMPI, A 

881D F0 = 84 MOV A, &R0 

801E 538F =85 ANL A,#8FH 

8828 6D = 86 ADD A, TEMPI 

8821 2A = 87 XCH A, XA 
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LOC OBJ SEQ SOURCE STATEMENT 



9SQ2 1700 




88 




RDDC 


R, #00 




0824 2R 


_ 


89 




XCH 


R, XR 




0025 F62R 


_ 


96 




JC 


C0N3ER 






_ 


91 


;2 POINTER0: 


=POINTER0-1 


I¥137 Tfi 




99 




DEC 


R9 








7^ 


:2 COUNT :=C0UNT-i 










rl UNTIL C0UNT= 


8 




aooo rpao 
OrJdO tDtfo 




TO 




DJNZ 


COUNT, C0N8LP 






7C" 


:■ 1 END CONVERT.KLBINRRV 










lUNhtlr . 


RET 










9R 


-PL JLL- 1 












99 














100 














101 




UTILITY TO MULTIPLY BIN BY 10 








' 


CARRY WILL BE SET IF OVERFLOW OCCURS 






103 










002B RD 

WtU ML/ 




104 




MOV 


TEMPI, R , 


SAVE R 






1flS 

J.V-J 




XCH 


fl, XR ; 


SAVE XA 


00?D RF 








MOV 


TEMP2, R 




002F ?fl 




187 




XCH 


fi, XR 








1AR 














109 




CLR 


c 








11(4 




RLC 


R ; 


BIN:=BIN*2 


WO J. C.T1 




111 




XCH 


R,XR 




CtCOO F7 
Dvjc r i 




11? 




RLC 


R 




Wj -> en 




11"? 
J. J. .J 




XCH 


R,Xfl 








114 




JC 


C0NB1E ; 


ERROR ON OVERFLOW 






115 










0036 F7 




116 




RLC 


R 


BIN:=BIN*4 


0037 2R 


_ 


117 




XCH 


R,XR 




0033 F7 


_ 


119 




RLC 


R 




9039 2fi 


_ 


119 




XCH 


R,XR 




893R F646 


_ 


120 




JC 


C0NB1E ; 


ERROR ON OVERFLOW 






121 










003C 6D 


_ 


122 




RDD 


R, TEMPI i 


B1N:=BIN*5 


0070 2fl 




1?3 




XCH 


fl,XR 




003E 7E 




124 




RDDC 


fl, TEMP2 




903F 2fl 




J.C.J 




XCH 


fl, XR 








leg 




JC 


C0NB1E ; 


ERROR ON OVERFLOW 
















0942 F7 




128 




RLC 


R 


BIN:-BIN*10 


WW? 2R 

tTO"T^ CM 




1?9 




XCH 


R,Xfl 












RLC 


R 




0045 2fl 




131 




XCH 


fl,XR 








132 










0046 83 




133 


C0NB1E: 


RET 










134 














135 














136 


END 









USER SYMBOLS 

CONB10 0O2B C0NB1E 9046 CONBER 002R CONBIN 0080 CONBLP 8908 COUNT 0993 DIGPR 9993 1CNT 0994 
TEMPI 8005 TEMP2 0006 XR 0002 

ASSEMBLY COMPLETE, NO ERRORS 
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CONCLUSION 

The design goals of the full duplex serial communica- 
tions software were realized; if transmission and recep- 
tion are occurring concurrently, only 42 percent of the 
real time available to the 8049 will be consumed by the 
serial link. This implies that an 8049 running full duplex 
serial I/O will still outperform earlier members of the 
family running without the serial I/O requirement. It is 
also possible to run this program in an 8048 or 8748 at 
1200 baud with the same 42 percent CPU utilization. 

The execution times for the other routines that have 
been discussed have been summarized in Table 1. All of 
these routines were written to maintain maximum use- 
ability rather than minimum code size or execution time. 
The resulting execution times and code size are there- 
fore what the user can expect to see in a real applica- 
tion. The results that were obtained clearly show the ef- 
ficiency and speed of the 8049. The equivalent times for 
the 8048 are also shown. It is clear that the 8049 repre- 
sents a substantial performance advantage over the 
8048. Considering, in most applications, that the 8048 is 



the highest performance microcomputer available to 
date, the performance advantage of the 8049 should 
allow the cost benefits of a single chip microcomputer 
to be realized in many applications which up until now 
have required too much "computer power" for a single 
chip approach. 



EXECUTION TIME 
(MICROSECONDS) 





BYTES 


8049 


8048 


MPY8 


21 


109 


200 


DIV 16 


37 


183 MIN 
204 MAX 


335 MIN 
375 MAX 


CONBCD 


36 


733 


1348 


CONBIN 


70 


388 


713 



Table 1. Program Performance 
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